#!/usr/bin/perl -w

use strict;
use warnings;
use Path::Class qw(dir);
use FindBin qw($Bin);
use Test::More tests => 1;
use Finance::Pershing::StandardFile::SELI;

my $file = dir($Bin)->subdir('var')->file('SELI.txt');
my $report =  Finance::Pershing::StandardFile::SELI->new(
  filename => $file
);

#is($report->record_count,2,"Record Count");

my $target =
[
          {
            'principal_interested_party_ind' => 'P',
            'household_id' => '123456789',
            'mail_to_account' => 'AW6001001',
            'ibd_number' => 'AW6',
            'accounts' => ['AW6005126','AW6000000'],
            'group_purpose' => '2',
            'gets_summary_page' => '1'
          },
        ];

is_deeply($report->records,$target);
